object fMenuCupom: TfMenuCupom
  Left = 731
  Top = 301
  Width = 262
  Height = 168
  BorderIcons = [biSystemMenu]
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 29
    Top = 23
    Width = 94
    Height = 39
    Caption = 'Leitura X'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 29
    Top = 72
    Width = 94
    Height = 39
    Caption = 'Redu'#231#227'o Z'
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 133
    Top = 24
    Width = 94
    Height = 39
    Caption = 'Cancelar Cupom'
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 133
    Top = 72
    Width = 94
    Height = 39
    Caption = 'Sair'
    TabOrder = 3
    OnClick = BitBtn4Click
  end
  object PopupMenu1: TPopupMenu
    Left = 117
    Top = 65535
  end
  object cCaixaControle: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'idCaixa'
        ParamType = ptInput
      end>
    ProviderName = 'dCaixaControle'
    Left = 138
    Top = 51
    object cCaixaControleIDCAIXACONTROLE: TIntegerField
      FieldName = 'IDCAIXACONTROLE'
      ProviderFlags = [pfInKey]
    end
    object cCaixaControleCODCAIXA: TIntegerField
      FieldName = 'CODCAIXA'
      ProviderFlags = [pfInUpdate]
    end
    object cCaixaControleCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object cCaixaControleDATAFECHAMENTO: TDateField
      FieldName = 'DATAFECHAMENTO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object cCaixaControleSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ProviderFlags = [pfInUpdate]
      Required = True
      FixedChar = True
      Size = 1
    end
    object cCaixaControleMAQUINA: TStringField
      FieldName = 'MAQUINA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cCaixaControleDATAABERTURA: TDateField
      FieldName = 'DATAABERTURA'
      ProviderFlags = [pfInUpdate]
    end
    object cCaixaControleVALORABRE: TFloatField
      FieldName = 'VALORABRE'
      ProviderFlags = [pfInUpdate]
    end
    object cCaixaControleVALORFECHA: TFloatField
      FieldName = 'VALORFECHA'
      ProviderFlags = [pfInUpdate]
    end
    object cCaixaControleNOMECAIXA: TStringField
      FieldName = 'NOMECAIXA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
  end
  object dCaixaControle: TDataSetProvider
    DataSet = sCaixaControle
    UpdateMode = upWhereKeyOnly
    Left = 109
    Top = 51
  end
  object sCaixaControle: TSQLDataSet
    CommandText = 'select * from CAIXA_CONTROLE '#13#10'where SITUACAO = :idCaixa'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'idCaixa'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 80
    Top = 51
    object sCaixaControleIDCAIXACONTROLE: TIntegerField
      FieldName = 'IDCAIXACONTROLE'
      ProviderFlags = [pfInKey]
    end
    object sCaixaControleCODCAIXA: TIntegerField
      FieldName = 'CODCAIXA'
      ProviderFlags = [pfInUpdate]
    end
    object sCaixaControleCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sCaixaControleDATAFECHAMENTO: TDateField
      FieldName = 'DATAFECHAMENTO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sCaixaControleSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ProviderFlags = [pfInUpdate]
      Required = True
      FixedChar = True
      Size = 1
    end
    object sCaixaControleMAQUINA: TStringField
      FieldName = 'MAQUINA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sCaixaControleDATAABERTURA: TDateField
      FieldName = 'DATAABERTURA'
      ProviderFlags = [pfInUpdate]
    end
    object sCaixaControleVALORABRE: TFloatField
      FieldName = 'VALORABRE'
      ProviderFlags = [pfInUpdate]
    end
    object sCaixaControleVALORFECHA: TFloatField
      FieldName = 'VALORFECHA'
      ProviderFlags = [pfInUpdate]
    end
    object sCaixaControleNOMECAIXA: TStringField
      FieldName = 'NOMECAIXA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
  end
end
